home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Cursor Size.xpl < prev    next >
Text File  |  2002-11-23  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Cursor Size"
  6. "VERSION"="1.00"
  7. "OSVERSION"="0001111"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Size (px)"
  10. "DESCRIPTION 1"="The text cursor (insertion point aka "caret") is normally 1 pixel width. This setting can be used to make the cursor bigger so it's easier to locate it on the screen."
  11. "AUTHOR"="Eugene Thrashevoy / Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to Eugene Thrashevoy [EugeNet@numep.ru] for this plug-in idea!"
  15. "COMMENT 2"="Technical  Reference to the Windows 2000 Registry" (included in Win2k Resource Kit)"
  16.  
  17. 'Declaration of some constants
  18. sP="HKCU\Control Panel\Desktop\"
  19. sV1="CaretWidth"
  20.  
  21. 'Called when the Plugin is started
  22. Sub Plugin_Initialize
  23.  i=RegReadValue(sp & sv1)
  24.  SetUIElement 1,i 
  25. End Sub
  26.  
  27. 'Called when the Plugin should validate the Data the user has entered
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. 'Called when the Plugin should apply the changes
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  i=GetUIElement(1)
  34.  if i<1 or i>100 then
  35.     Call MsgError("Please enter a value between 1 and 100!")
  36.  else
  37.     Call RegWriteValue(sp & sv1,i,2)
  38.     Call Logoff
  39.  end if
  40. End Sub
  41.  
  42. 'Called when the Plugin is about to be removed from memory
  43. Sub Plugin_Terminate
  44. End Sub
  45.